home *** CD-ROM | disk | FTP | other *** search
/ Aminet 4 / Aminet 4 - November 1994.iso / aminet / comm / bbs / autoval10.lha / VAL.upaccess.rexx < prev   
OS/2 REXX Batch file  |  1994-07-07  |  147b  |  11 lines
  1. /* Update access group
  2.  *
  3.  *   Called by Excelsior! Autoval v1.0
  4.  */
  5.  
  6. options results
  7.  
  8. getuser 15;access=result
  9. if access~=1 then exit
  10. setaccess 3
  11.